home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 21 / AMIGAplus Sonderheft 21 (1999)(ICP)(DE)[!].iso / PublicDomain / Anwendungen / RecentScript / Plugins / RecentScript.intui next >
Text File  |  1999-08-23  |  1KB  |  54 lines
  1. /*****
  2.   $VER: RecentScript IntuiNews PlugIn 0.4 (18.4.98) ©Arndt van der Molen
  3.  
  4.  
  5.         RecentScript PlugIn for news/email reader IntuiNews.
  6.  
  7.   Starts the MUIRexx application 'RecentScript' with the
  8.   currently viewed article or all selected articles.
  9.  
  10.   Installation:
  11.  
  12.   Add following line(s) to 'ums.config'
  13.  
  14. ( IntuiNews.Rexx
  15.     "(Article|Message)Window  F9  MUIRexx:RecentScript/Plugins/RecentScript.intui\n"
  16. )
  17.  
  18.   whereas the function key number is the first unused in your
  19.   UMS configuration. Note: The maximum allowed number is 10.
  20.  
  21.   Known 'Bugs':
  22.    - At multiselection the first line (and therefore the first
  23.      archive) of all additional selections is added without a
  24.      newline and is not recognized by RecentScript.
  25.    - Temporary file will not be deleted
  26. *****/
  27.  
  28. OPTIONS RESULTS
  29.  
  30. status
  31.  
  32. IF RESULT = "MESSAGE"
  33. THEN DO
  34.   getmsgnum
  35.   msgs = RESULT
  36. END
  37. ELSE
  38.  
  39.  IF RESULT = "ARTICLE"
  40.  THEN DO
  41.  
  42.    getselmsgnums
  43.    IF RESULT = "RESULT" THEN EXIT 5
  44.    msgs = RESULT
  45.  END
  46.  
  47. ELSE EXIT 5
  48.  
  49. 'savemsgbody' msgs 'TO T:RS.temp'
  50.  
  51. PRAGMA("STACK", 15000)
  52.  
  53. ADDRESS COMMAND 'run <>NIL: MUIRexx:MUIRexx "MUIRexx:RecentScript/RecentScript.rexx T:RS.temp" PORT RECENTSCRIPT'
  54.